home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / amigae.june.archive / 000137_crash!kirk.safb.af.mil!BWILLS_Fri, 25 Jun 93 17:46:07 PST.msg < prev    next >
Text File  |  1993-08-31  |  1KB  |  33 lines
  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Fri, 25 Jun 93 17:46:07 PST
  3. Received: from kirk.safb.af.mil by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0o9Mmk-0000B8C; Fri, 25 Jun 93 16:02 PDT
  5. Message-Id: <m0o9Mmk-0000B8C@crash.cts.com>
  6. Date: 25 Jun 93 17:59:00 CST
  7. From: "Barry D. Wills" <BWILLS@kirk.safb.af.mil>
  8. To: "amigae" <amigae@bkhouse.cts.com>
  9. Subject: Randomizing Rnd()
  10.  
  11. I tried everything I could think of to seed the random number generator as
  12. described in the manual.  This is the only way I could do it.  It doesn't follow
  13. the manual.  It's a kludge, but it works.  RndQ() is better, but you can't
  14. easily enforce a max value.  Later.  -- Barry
  15.  
  16. MODULE 'dos/dos'
  17.  
  18. PROC main ()
  19.   DEF ds : datestamp, i
  20.   CONST RND_MAX = 1000
  21.  
  22. /*===============================================================*/
  23. /* This does the same thing as RANDOMIZE TIMER.                  */
  24.  
  25.   VOID DateStamp (ds)
  26.   WriteF ('Max ticks per minute=\d\n', (50*60)) /* ticks*seconds */
  27.   FOR i := 0 TO ds.tick DO VOID Rnd (RND_MAX)
  28. /*===============================================================*/
  29.  
  30.   FOR i := 1 TO 5
  31.     WriteF ('rnd=\d\n', Rnd (RND_MAX))
  32.   ENDFOR
  33. ENDPROC